home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b4.d64 / solution4.9 < prev    next >
Text File  |  2007-02-28  |  373b  |  17 lines
  1. 0010 PRINT "NO BATHING"
  2. 0020 READ FIRST,SECOND,THIRD
  3. 0030 PRINT "NO BATHING"
  4. 0040 PRINT "NO BATHING"
  5. 0050 REPEAT 
  6. 0060 AVERAGE:=(FIRST+SECOND+THIRD)/3
  7. 0070 IF AVERAGE>25 THEN
  8. 0080 PRINT "NO BATHING"
  9. 0090 ELSE 
  10. 0100 PRINT "BATHING ALLOWED"
  11. 0110 ENDIF 
  12. 0120 FIRST:=SECOND
  13. 0130 SECOND:=THIRD
  14. 0140 READ THIRD
  15. 0150 UNTIL THIRD<0
  16. 0160 DATA 13,15,26,24,28,30,27,22,21,19,17,14,-1
  17.